home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
language
/
modula.zoo
/
_defn_vdiraste.def
< prev
next >
Wrap
Text File
|
1988-04-26
|
2KB
|
51 lines
DEFINITION MODULE VDIRasters;
FROM SYSTEM IMPORT ADDRESS;
FROM GEMVDIbase IMPORT BigPxyArrayType, SmallArrayType;
TYPE
MFDBType = RECORD (* memory form definition block *)
pointer: ADDRESS; (* address of first plane *)
width: CARDINAL; (* form width in pixels *)
height: CARDINAL; (* form height in pixels *)
widthW: CARDINAL; (* form width in words *)
format: CARDINAL; (* format, 0 = device specific
1 = standard format *)
planes: CARDINAL; (* number of memory planes *)
rsrvd1: CARDINAL;
rsrvd2: CARDINAL;
END;
MFDBptr = POINTER TO MFDBType;
(* raster operations *)
PROCEDURE CopyRasterOpaque (Handle, WrMode: INTEGER;
VAR PxyArray: BigPxyArrayType;
psrcMFDB, pdesMFDB: ADDRESS);
(* copy raster, opaque *)
PROCEDURE CopyRasterTransparent (Handle, WrMode: INTEGER;
VAR PxyArray: BigPxyArrayType;
VAR psrcMFDB, pdesMFDB: ADDRESS;
VAR colourIndex: SmallArrayType);
(* copy raster, transparent *)
PROCEDURE TransformForm (Handle: INTEGER; psrcMFDB, pdesMFDB: ADDRESS);
(* transform form *)
PROCEDURE GetPixel (Handle, x, y: INTEGER; VAR pel, index: INTEGER);
(* get pixel *)
END VDIRasters.